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. TITLE T3KM2C -- 

. ENABL LC 

. DSABL GBL 

. CSECT TSKM2C 



Th0 RUN cufofii^nd 



TSKM2C: 



TSKM2C is the portion oP TSKMON that contains the code 
to implement the RUN command. 

Copyright 1936. 

S&H Computer Systems/ Inc> 

Nashville, Tennessee 



Macro calls 

. MCALL . LOOKUP, . READW, . CLOSE 
Global definitions 

. GLOBL CMDRSY, CMDRUN, DORUN, RUNNAM, PLOAD, KDOC IN 

Global references 
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RUNOPB: . WORD 



CMDOFF, NOPRG, FPRINT, SYNAME, INDSAV, NOIND 
«DEBUG, UHITTY, flNDRN, *NOINT, P0*DBG 
*NOWTT, *PRGLK, $RNIOP, *RNMLK, *TRNSP, *UCLRN 
AFfBYA, AF*CCA, AF*DBG, AF*DUP, AF*HIE, TRMSTR 
AF*IND, AF*IOP, AF*MEM, AF*NOI, AF*NOW, LSW4 
AF*PLK, AF*SCA> AF*SET, AF*TPO, AF*UCL, TRMSTR 
*CFOPN, CFBUF, CFSQEZ, PUSHCF, ACRFN> TOOLNG 
II*FLG, IltNPV, II*PRV, *QUIET 
DKSAV, SYSAV, CORUSR, EM*NPD, AF*NPWFILNAM 
VDBFLG, CINDAT, LOGASN. *STSNG, LSW6, FORCEO 
RUNARG, RUNCHN, RUNFLG, RUNDEV, INSSRC, PVNPW 
RUNHD, RUNEMT, JS*RUN, IIBUF 
LSW7, LI TIME, PO*MEM, LSW2, LSW2S 
PRIVCO, EM*MPV, EM*NAL, PO*LOK 
CCSPRV, ABRTCF, PO*DBG, EM*NAD 
«NOWIN, LSWll, *DUPRN, IN*ACT, INDSTA 
IN*CNT, INDACT, UCLBLK, EMfNUC 
«SETRN, LSW9, RDERM, CINFLG. CVTTAB 
RSTPRV, LJSW, NEWUSW, R50VIR, VIMAGE, MAXMEM 
ODTBAS, VSWPFLMXJADR, PRGSIZ, PRGTOP 
USRSTK, NOSTRT, USTART, LPRGl, LPRG2, LMONHD 
SMONHD, GENMON, OVRCOR, BADSAV, LDNAM, LDCLEN 
NOCIN, SKPSPC, SEARCH, INVOPT, FKILL 
XAREA, FILNAM, LSW5, *SCCA, BLKO, BLKWDS 
LSW3, *CHACT, RDCMD, MXJADR, FIXPRV, AFCF 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5, -(SP) 

MOV MSG, R5 

CALL FPRINT 

MOV (SP>+, R5 

. ENDM FERR 



Macro to print a fatal error messaqe/ clean up 
and when juiTip to RDCMD. 

. MACRO FAB OR T MS« 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message 

. MACRO FWARN MSe 

MOV H5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 



NARGS 



. MACRO TBLDEF NAME, NA 

NA 

. CSECT CMDV2C 
NAME'HD: .WORD 2-*NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B> C = Set of option parameters to store in table with name. 



. MACRO CMDDEF STRNG, A, B, C 
. CSECT NAME2C 





. ASCI 2 


/STRNG/ 








. CSECT 


CMDV2C 








. WORD 


L 




i 




. WORD 


A 






. IIF 


GE, <NARGS-2> 


. WORD 


B 


. IIF 


GE, <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 







j POINTER TO NAME STRING 
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Macro to end a set of table entries. 

. MACRO TBLEND 

. CSECT CMDV2C 

. WORD 

. CSECT TSKM2C 

. ENDM TBLEND 



c 
i 

I 
i 
i 
i 
i 
i 



TSKM2C — The RUN command 
Tables of commands and options 

1 
2 
3 
4 

5 000002 

6 000002 

7 000006 

8 000012 

9 000016 

10 000022 

11 000026 

12 000032 

13 000036 

14 000042 

15 000046 

16 000052 

17 000056 
IS 000063 
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. 3BTTL Tables of commands and options 

i Define option switches for the RUN command 

TBLDEF RUN, 1 

CMDDEF B»YPASN, RNBYA 

CMDDEF D»EBUe, RNDB 

CMDDEF H*IGH, RNSHI 

CMDDEF I*OPAGE, RNSIDP 

CMDDEF L-«-OCK, RNSLK 

CMDDEF M*EMLOCK, RNSMLK 

CMDDEF NONI*NTERACTIVE>RNSNOI 

CMDDEF NOW*INDOWINe, RNNPW 

CMDDEF 0*DT, RNDB 

CMDDEF S*INGLECHAR, RNSCHR 

CMDDEF SC*CA, RNSCCA 

CMDDEF T*RANSPARENT, RNSTPO 

TBLEND 
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. SBTTL RUN command 

; Process the 'R' (RUN) command. 

,; Entru noint for 'RUN' rommand 



CMDRUN: MOV 
BR 



#DKSAV, R5 
RUNPRS 



SET DEFAULT DEV AND EXT 



Entry point for 'R ' command 
CMDRSY: MOV #SYSAV, R5 

Begin scanning command line 



RUNPRS: CALL 
CLR 



CVTTAB 
RUNOPS 



SET DEFAULT DEV AND EXT 



J CONVERT TABS TO SPACES IN COMMAND LINE 

i Clear option flag word 



See if any switches were specified with run command 
RUNSW: 



CALL 


SKPSPC 


CMPB 


<R3>. #'/ 


BNE 


RUNNAM 


INC 


R3 


MOV 


#RUNHD> R4 


CALL 


SEARCH 


BCC 


1* 



If: 



FAB OR T #INVOPT 
MOVB CORUSR.Rl 
JMP e(R4)+ 

Process the /LOCK switch 



Skip over any spaces 

ANY SWITCH? 

BR IF NOT 

POINT PAST SLASH 

POINT TO RUN SWITCH TABLE 

ACCRUE AND LOOKUP SWITCH 

BR IF SWITCH OK 

BAD SWITCH 

PUT JOB INDEX NUMBER IN Rl 

ENTER SWITCH PROCESSING ROUTINE 



177702 RNSLK: 



BIS 
BR 



#AF*PLK* RUNOPS i Remember to lock program to line 



RUNSW 
Process the /MEMLOCK switch 



;GD CHECK FOR OTHER SWITCHES 



177672 RNSMLK: BIS 

BR 



#AF$MEM.. RUNOPS ; Remember to lock program in memory 
RUNSW i Go check for more switches 



Process the /SINGLECHAR switch. 



177662 RNSCHR: BIS 

BR 



#<AF*SCA!AF*NOW>» RUNOPS i Enable single char activ & non-wait 
RUNSW 



Process the /TRANSPARENT switch. 



177652 RNSTPO: BIS 

BR 



#AF*TPO.- RUNO.PS i Say to run with transparent output 
RUNSW 



Process the /BYPASS (bypass assign) option 



177642 RNBYA: BIS 

BR 



#AF*BYA» RUNOPS ; Bypass assign commands 
RUNSW 
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Process the /HIGH (high efficiency) switch. 
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58 

59 000140 

60 000146 
61 

62 
63 

64 000150 

65 000156 
66 

67 
68 

69 000160 

70 000166 
71 

72 
73 

74 000170 

75 000174 

76 000176 

77 000206 

78 000214 

80 
81 

82 000216 

83 000224 
84 

85 
86 

87 000226 

88 000234 



052767 OOOOOOS 
000726 



052767 OOOOOOG 
000722 



052767 OOOOOOG 
000716 



105767 OOOOOOG 
001004 

052767 OOOOOOG 
000703 



052767 OOOOOOG 
000677 



052767 OOOOOOG 
000673 



177632 RNSHI: BIS 

BR 



#AF*HIE* RUNOFS i Enable high-efficiency mode 
RUNSW 



Process the /lOPAGE switch 



177622 RNSIOP: BIS 

BR 



#AF*IOP> RUNDPS i Program is to be run with I/O page access 
RUNSW 



Process the /NONINTERACTI VE switch 



177612 RNSNOI: BIS 

BR 



#AF*NOI* RUNOPS i Run program in non-interactive mode 
RUNSW 



Process the /DEBUG switch 



RNDB: TSTB 
BNE 

FAB OR T 
177564 1$: BIS 

BR 



VDBFLG iWas program debugger genned into the system? 

1* ; Br if yes 

#EM*NPD i No program debugger available 

#AF*DBG* RUNOPS > Remember to run program with debugger 

RUNSW 



Process the /SCO A switch 



177554 RNSCCA: BIS 

BR 



#AF*CCA^ RUNOPS > Remember to suppress control-C aborts 
RUNSW 



Process the /NOWINDOW switch 



177544 RNNPW: BIS 

BR 



#AF$NPW> RUNOPS ; Remember to suspend windowing 
RUNSW 
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000236 
000242 
000244 
000250 
000254 
000274 
000276 
000304 
000306 
000312 
000326 
000332 
000336 
000342 



000350 
000356 
000362 
000366 
000370 
000372 
000376 



000400 
000402 
000404 
000410 
000414 
000416 
000420 
000422 
000426 



000432 
000440 
000442 
000446 
000450 
000454 



004767 
103002 
000167 
004767 

103020 
032767 
001402 
000167 

000167 
005067 
116701 
016161 



012767 
005067 
105267 
112300 
001502 
120027 



005303 
010302 
012704 
020427 
103002 
112224 
001373 
162704 
010467 



032761 
001403 
012705 
000403 
004767 
010005 



Accrue name of program to run 



0000000 

001254 
002240 



0000000 177474 

0000000 

001172 
177442 
0000000 
OOOOOOG 0000000 



RUNNAM: 



1*: 



CALL 
BCC 
JMP 
CALL 



ACRFN 
1* 

CLSEXT 
CHKIND 



LOOKUP #XAREA, #RUNCHN 



2*: 

DORUIM; 
DOR UN X : 



BCC DORUNX 

BIT #AF*PLK, RUNOPS 

BEQ 2$ 

JMP GMDOFF 

FERR #NOPRG 

JMP CLSEXT 

CLR RUNOPS 

MOVB C0RUSR,R1 

MOV LSW2 < R 1 ) > LSW2S 



ACCRUE THE PROGRAM FILE NAME 

BR IF GOT NAME OK 

BR IF ERROR IN GETTING FILE NAME 

SEE IF WE ARE RUNNING IND 
, #FILNAM i TRY TO OPEN FILE 
; BRANCH IF OPEN OK 

; Was program supposed to be locked? 
} N0> GO AHEAD 

> LOCKED FILE NOT FOUND, LOG OFF 
i PRINT ERROR MESSAGE 
; GO CLEANUP AND GET NEXT COMMAND 
J NO RUN OPTION FLAGS 
i GET LINE INDEX # 
(RDiSAVE VALUE OF LSW2 



See if an argument was specified mith run command 



000001 
0000 120 
OOOOOOG 



000040 



0000 lOG 



MOV #1,CINDAT+10 

CLR CINDAT+12 

INCB RUNARG 

1*: MOVB (R3)+, RO 

BEQ RNOARG 

CMPB RO, # ' 

BEQ 1* 



Set 1 to go in 510 chain area 
Set null at run argument string 
Set flag saying RUN argument string 
ANY ARGUMENT FIELD PRESENT? 
BR IF NOT 
IGNORE SPACES 



present 



0000 12G 
000270G 



0000 120 
0000 lOG 



There is an argument field. 

Move argument string to chain area. 

Point to start of string 

Get pointer to argument string 

Point to where chain data for 512 starts 

7*: CMP R4, #CINDAT+-270 i Have me hit end of chain data area? 

Don't go past end of chain data area 
Copy argument to chain data area 
Loop till end reached 

8*: SUB #CINDAT+12, R4 i Get # chars in string (including null) 

It will be passed in 510 

Set argument up to be read like it was part of a command file. 

If we have pending commands in the command file buffer, compress 

them to make room for new commands. 

If input is coming from a real command file, we do not need to 

compress since we will reread buffer when we hit end of new command. 



DEC 


R3 


MOV 


R3, R2 


MOV 


#CINDAT+12, R4 


CMP 


R4, #CINDATi-270 


BHIS 


8* 


MOVB 


(R2)+, (R4) + 


BNE 


7* 


SUB 


#CINDAT+12, R4 


MOV 


R4, CINDAT+10 



OOOOOOG OOOOOOG 

OOIOOOG 

OOOOOOG 11«: 



BIT 

BEQ 

MOV 

BR 

CALL 

MOV 



#*CFOPN.. LSW4<R1 >; Is a command file open? 



11* 

#CFBUF+512. ,R5 

12* 

CFSQEZ 

R0> R5 



i Br if not 

; Say entire command file buffer is free 

i Compress info in current command file buffer 

.; Save address of end of free space in buffer 



Push current command file and start new one 



c 
i 

t 

I 

4 

i 

i 
i 
( 
I 
( 
( 
( 

i 
< 
I 

f 



000456 004767 OOOOOOG 



12*: 



CALL 



PUSHCF 



; START NEW COMMAND FILE 



I 
I 

i 

I 
( 
I 
c 

i 
c 
f 

I 

i 

i 
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67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 



OO04<i 



O 1^704 OOOOOOG 



MOV 



#CFBUFj R4 



i POINT TO COMMAND FILE BUFFER 



000466 
000470 
000472 
000474 
000500 



010302 
1 1 2200 
001416 
120027 

001373 



2*: 



000040 



See if arg string contains a space which separates input file 
specs from output file specs. 

POINT TO START OF ARG STRING 
GET CHAR FROM STRING 
NO SPACE IN STRING 
SEARCH FOR SPACE 



MOV 


R3, R2 


MOVB 


(R2)+, RO 


BEQ 


3* 


CMPB 


RO, # ' 


BNE 


2* 



000502 
000510 
000512 
000516 
000520 
000522 



000530 
000532 



000534 
000540 
000542 
000544 



000546 
000550 
000552 
000554 
000556 
000560 



032761 
001007 
105062 
1 1 2224 
001376 
112764 



1 1 2324 
001376 



012703 
005304 
112324 
001376 



020405 
001407 
103002 
105024 
000773 



OOOOOOG OOOOOOG 



177777 



000075 177777 



String contains a space. Move part of string following space 
to front of command file fauffer and insert trailing '='. 

Is IND being started? 

Br if yes — Don't reverse parameters 
MAKE 1ST PART BE ASCIZ 
4$: MOVB (R2)+. (R4)+ j MOVE STRING TO COMMAND FILE BUFFER 

LOOP TILL DONE 
PUT IN SEPARATING = 

Now move Ist part of string to command file buffer 

3*: MOVB (R3)+. <R4) + 
BNE 3« 



BIT 


#*INDRN, LSW5(R1) 


BNE 


3* 


CLRB 


-UR2) 


MOVB 


(R2)+, (R4) + 


BNE 


4* 


MOVB 


#'=, -1(R4) 



Put in CR-LF— '^C to terminate the line 



OOOOOOG 



5*: 



MOV 


#TRMSTR, R3 


DEC 


R4 


MOVB 


<R3)+, <R4)-+ 


BNE 


5* 



POINT TO STRING OF CONTROL CHARS 
STORE OVER TRAILING NULL 
PUT IN TERMINATING CHARS 



Pad rest of buffer with nulls 



6*: 



CMP 


R4, R5 


BEQ 


13* 


BHIS 


14* 


CLRB 


<R4) + 


BR 


6* 



Reached end of area to fill? 

Br if yes 

Br if buffer overflow 

Null fill the buffer 



14*: FABORT #TOOLNG ; Buf f er overflow 

Set flags to suppress listing of argument string being read. 
000570 052761 OOOOOOG OOOOOOG 13*: BIS #*QUIET, LSW4<R1 ) J SUPPRESS LISTING 

Program file is open. 



000576 
000602 
000606 



012704 OOOOOOG 
016700 177172 
000400 



RNOARG: MOV 
MOV 
BR 



#FILNAi1.. R4 
RUNOPS> RO 
PLOAD 



POINT TO CELL WITH FILE NAME 
Get run option flags for PLOAD 
Load and start execution of program 



c 

€ 
f 



i 

c 
I 
f 

i 

I 

I 

i 



i 
I 



€ 
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4 








5 








6 








7 








8 








9 








10 


000610 


010067 


177164 


11 








12 








13 








14 


000614 


012705 


0000000 


15 


000620 


012700 


000004 


16 


000624 


012425 




17 


000626 


077002 




IS 


000630 


012705 


OOOOOOG 


19 


000634 


004767 


OOOOOOG 


20 


000640 


012704 


OOOOOOG 
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Load a SAV file into memory and start its execution. 

Inputs: 
RUNCHN channel is now open to program file. 
RO = AF*xxx run option flags. 
Rl = Job index number. 
R4 = Address of buffer with RAD50 program name. 



PLOAD: MOV RO, RUNOPS 

Set name of running program 



1$: 



MOV 


#RUNDEV, R5 


MOV 


#4, RO 


MOV 


<R4)+, <R5>-+- 


SOB 


RO, 1* 


MOV 


#RUNDEV.. R5 


CALL 


LDGASN 


MOV 


#RUNDEV, R4 



i Save initial run option flags 



i Save program name here 

} Save 4 words 

i Copy program file spec 

.: Point to file spec 

; Do any logical assignment 

iPoint to file spec 



i 
I 
( 

I 
I 
i 



i 
i 

I 



i 
i 
i 

c 



I 
( 

c 

4 
f 

i 

f 
I 
( 
I 

€ 
I 
I 
I 
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i 
2 
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4 










5 


000644 


032761 


0000000 


OOOOOOG 


6 


000652 


001403 






7 
8 


000654 


052767 


OOOOOOG 


177116 


9 
10 










11 


000662 


010346 






12 


000664 


012703 


0000000 




13 


000670 


004767 


OOOOOOG 




14 


000674 


010300 






15 


000676 


012603 






16 


000700 


004767 


OOOOOOG 




17 


000704 


103420 






IS 










19 










20 










21 


000706 


012702 


OOOOOOG 




22 


000712 


056262 


OOOOOOC 


OOOOOOG 


23 


000720 


046262 


OOOOOOG 


OOOOOOG 


24 


000726 


162702 


000002 




25 


000732 


002367 






26 


000734 


004767 


OOOOOOG 




27 
28 


000740 


056767 


00000 IC 


177032 


29 
30 










31 
32 
33 


000746 


056767 


OOOOOOG 


177024 










34 










35 


000754 


016702 


177020 




36 


000760 


032702 


OOOOOOG 




37 


000764 


001403 






38 


000766 


052761 


OOOOOOG 


OOOOOOG 


39 


000774 


032702 


OOOOOOG 




40 


001000 


001403 






41 


001002 


052761 


OOOOOOG 


OOOOOOG 


42 


001010 


032702 


OOOOOOG 




43 


001014 


001403 






44 


001016 


052761 


OOOOOOG 


OOOOOOG 


45 


001024 


032702 


OOOOOOG 




46 


001030 


001403 






47 


001032 


052761 


OOOOOOG 


OOOOOOG 


48 


001040 


032702 


OOOOOOG 




49 


001044 


001406 






50 


001046 


052761 


OOOOOOG 


OOOOOOG 


51 


001054 


012761 


000002 


OOOOOOG 


52 


001062 


032702 


OOOOOOG 




53 


001066 


001417 






54 


001070 


032767 


OOOOOOG 


OOOOOOG 


55 


001076 


001010 






56 


001100 








57 


001114 


000167 


000404 
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■ See if we need to invoke some automatic run suiitches for this program. 

f 

i See if me should default to single character activation 

i 

RUNASW: BIT #«STSNG, LSW6(R1 ) ; Is single char activation the default? 
BEQ 7* iBr if not 

BIS #AF*SCAj RUNOPS j Remember to enable single char activation 



See if the program has fafen installed 



7*: 



MOV 


R3, -<SP) 


MOV 


#RUNDEV> R3 


CALL 


FORCED 


MOV 


R3, RO 


MOV 


<SP)+, R3 


CALL 


INSSRC 


BCS 


6* 



4*: 



; Point to file spec for program 
>Make sure unit number is included 
i Copy file spec ptr 

i See if this program has been installed 
i Br if not 

Apply privilege flags specified for installed program 

MOV #<PVNPW-1>*2, R2 iGet index to last privilege uiord 

BIS II*PRV+IIBUF<KP:>. PRIVC0(R2)j Set flags specified for program 

BIC II*NPV+IIBUF(R2),PRIVC0(R2); Clear flags specified for program 

SUB #2* R2 iGet index to next word 

BGE 4* > Loop if more to do 

CALL FIXPRV i Do privilege setup 

BIS II$FLG+IIBUF; RUNOPS ,= Combine run option switches for program 

; Or in attribute flags for enclosing command file 

i 

6*: BIS AFCF, RUNOPS ; Combine attributes from command file 

> 

i Set some automatic switches for this program 

i 

Get attribute flags for program 

Single character activation wanted?" 

Br if not 

Enable single character activation 

Non wait TT input wanted? 

Br if not 

Enable non-u»ait TT input 

Is high efficiency mode wanted? 

Br if not 

Enable high-efficiency mode 

Transparent output wanted? 

Br if not 

Enable transparent output 

Is non-interactive execution wanted? 

Br if not 

Set non-interactive execution flag 

Set very short interactive time 

Map to I/O page? 

Br if not 

Are we authorized to access I/O page? 

Br if yes 

Not authorized to run this program 



3*: 



15*: 



1£>*: 



?3*: 



1*; 



MOV 


RUNOPS. R2 


BIT 


#AF*SCA, R2 


BEQ 


3* 


BIS 


#*CHACT, LSW5(R1) 


BIT 


#AF*NOW, R2 


BEQ 


15* 


BIS 


#*NOWTT, LSW5<R1) 


BIT 


#AF*HIE, R2 


BEQ 


16* 


BIS 


#*HITTY, LSW4(R1) 


BIT 


#AF*TPO, R2 


BEQ 


23* 


BIS 


#*TRNSP,LSW3<R1) 


BIT 


#AF*NOI.. R2 


BEQ 


1* 


BIS 


#*NOINT, LSW7<R1) 


MOV 


#2, LITIME<R1) 


BIT 


#AF*I0P,R2 


BEQ 


17* 


BIT 


#PO*MEM, PRIVCO 


BNE 


20* 


FERR 


#EM*MPV 


JMP 


CLSEXT 



I 

I 

c 
< 

i 



I 
f 



t 

i 
t 

i 
i 



i 

i 
i 
( 
( 
I 
t 
C 
I 
< 
I 
( 
I 
4 
I 
{ 
4 
( 



TSKM2C — The RUN command 
RUN command 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 



001120 
001126 
001132 
001134 
001142 
001144 
001160 
001164 
001172 
001176 
001200 
001206 
001212 
001216 
001222 
001224 
001232 
001234 
001250 
001254 
001262 
001266 
001270 
001276 
001302 
001304 



001312 
001316 
001320 
001326 
001332 
001334 
001342 
001344 
001352 
001354 
001370 
001374 
001402 
001406 
001410 
001414 
001416 
001426 
001434 
001440 
001442 
001450 



052761 
032702 
001417 
032767 
001010 

000167 
052761 
032702 
001407 
052761 
004767 
004767 
032702 
001417 
032767 
001010 

000167 
052761 
032702 
001403 
052761 
032703 
001403 
052761 



032702 
001403 
052761 
032702 
001423 
132767 
001414 
132767 
001010 

000167 
052761 
032702 
001412 
005767 
001004 

052761 
032702 
00 1 403 
052761 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 



000340 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



000250 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



000130 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



20* : 
17*: 



21*: 
18*: 



?*: 



19*: 
24*: 



32*: 



OOOOOOG 



OOOOOOG OOOOOOG 



BIS 

BIT 

BEQ 

BIT 

BNE 

FERR 

JMP 

BIS 

BIT 

BIS 

CALL 

CALL 

BIT 

BEQ 

BIT 

BNE 

FERR 

JMP 

BIS 

BIT 

BEQ 

BIS 

BIT 

BEQ 

BIS 



#*RNIOP, LSW9<K1 >; Set flag to cause mapping to I/O page 

#AF*MEM> R2 ;Lock program in memory? 

IS* j Br if not 

#PO*LOK.- PRIVCO .i Are we authorixed to do this? 

21* .: Br if yes 

#EM*NAL ; Not authorized to lock program in memory 

CLSEXT 

Set flag to cause program to be locked 

Want to lock program to line? 

Br if not 

Remember program is locked to line 

Copy current to set privileges 

Close any open command files 

Want to run program with debugger? 

Br if not 

Are u»e privileged to use the debugger? 

Br if yes 

Can't use debugger- 



#*RNMLK, LSW9<Ri) 

#AF*PLK, R2 

22* 

#*PR0LK>LSW5<R1> 

CCSPRV 

ABRTCF 

#AF*DBG> R2 

24* 

#PO*DBG, PRIVCO 

19* 

#EM*NAD 



CLSEXT 

#*DEBUG,LSW9(Rl)i Enable the debugger 

#AF*CCA, R2 ; Disable control~C abort? 

32* J Br if not 

#*SCCAi LSW5(R1 ) ; Disable control~C abort 

#AF*NPW. R2 i Suspend process windowingT-' 

30* ; Br if not 

#*NOWIN/ LSWl 1 (Rl )i Suspend process windowing 



i Check for startup of special programs 

i 

30*: 



25*: 



27*: 
26*: 



31*: 
28*: 



>*; 



BIT #AF*DUP,R2 

BEQ 25* 

BIS #*DUPRN, LSW6(R1) 

BIT #AF*IND. R2 

BEQ 26* 

BITS #IN*ACT, INDSTA 

BEQ 27* 

BITB #IN*CNT, INDSTA 

BNE 27* 

FERR #INDACT 

JMP CLSEXT 

BIS #*INDRN, LSW5<R1) 

BIT #AF*UCL»R2 

BEQ 28* 

TST UCLBLK 

BNE 31* 

FABORT #EM*NUC 

BIS #*UCLRN, LSW7<R1) 

BIT #AF*SET.. R2 

BEQ 2* 

BIS #*SETRN, LSW9 < R 1 ) 



Is DUP being started? 

Br if not 

Remember DUP is running 

Is IND being started? 

Br if not 

Is IND already active? 

Br if not 

Are we continuing its execution? 

Br if yes 

Error — IND is already active 

Remember IND is running 

Is TSXUCL being started? 

Br if not 

Are we supporting user-defined commands? 

Br if yes 

Not supporting usei — defined commands 

Remember TSXUCL is running 

Is SETUP being started? 

Br if not 

Remember SETUP is running 



I 
I 
f 



f 
4 
( 
I 
( 

i 

4 

i 
f 
i 

4 
4 

i 
c 
c 
« 
i 



f 



* 

4 
I 
( 
i 
C 
C 
i 
( 
I 
I 



h 



TSKM2C — The 
RUN command 



i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



RUN command 



001450 
001506 
001510 
001524 
001532 
001536 
001542 
001546 
001554 
00 i 562 
001570 
001576 
001604 
001612 
001616 



001622 
001626 

001632 
001636 
001642 
001646 
001652 
001654 
001660 
001666 
001670 
001676 
001700 
001706 
001710 



001716 
001722 
001730 
001732 
001736 
001740 
001744 



001750 
001756 
001760 



001766 
001772 



103045 



105067 
105067 
116701 
042761 
042761 
042761 
042761 
042761 
042761 
004767 
000167 



116701 
012702 

016203 
042703 
016104 
042704 
050304 
010467 
026267 
001410 
026227 
101004 
026227 
101403 
052767 



016705 
032767 
001005 
020527 
101402 
012705 
010567 



026262 
101403 
016262 



016703 
105767 



MACRO V05. 05 Thursday 19-Jan-89 14:55 Page 8 



Read in block zero of file being started. 



d 



■ 1 



i 

f 



RNREAD: 



CLSEXT: 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



- READW 

BCC 

FERR 

. CLOSE 

CLRB 

CLRB 

MOVB 

BIC 

BIC 

BIC 

BIC 

BIC 

BIC 

CALL 

JMP 



#RUNCHN. #BLKO, #BLKWDS> #0 

.: BRANCH IF READ OK 



CLOSE SAV FILE 

RESET CHAIN FLAG 

No argument string with RUN command 

GET CURRENT JOB INDEX NUMBER 



#XAREA 

SVINBG 

#RDERM 

#RUNCHN 

CINFLG 

RUNARG 

CORUSR, Rl 

#*TRNSP,LSW3(R1) 

#*HITTy-LSW4<Rl)i CLEAN OUT MORE 

#<*I NDRN ! *CHACT i *NOWTT>, LSW5 < R 1 

#*DUPRN, LSW6<R1) 

#*UCLRN!*NOJNT, LSW7(R1 ) 

#*DEBUG ! *RNIOP ! *RNMLK ! *SETRN, LSW9 < R 1 ) 

RSTPRV i Reset job privilege flags 

RDCMD 



RUN 
I i CLEAN 



OUT FLAGS 



Examine information in block of sav file. 



000044 
100007 
OOOOOOG 
075570 

OOOOOOG 
000000 

000056 

000050 

OOOOOOG 



OOOOOOG 
000034 
160000 
OOOOOOG 



OOOOOOG 
OOOOOOG 

160000 

160000 
OOOOOOG 



000042 
000042 



OOOOOOG 
OOOOOOG 



OOOOOOG 



000050 
000050 



SVINBG: MOVB 
MOV 

i Set up neui 
MOV 
BIC 
MOV 
BIC 
BIS 
MOV 
CMP 
BEQ 
CMP 
BHI 
CMP 
BLOS 

23*: BIS 
Set up info 
to use. Th 

1. The amo 

2. 56Kb if 
27*: MOV 

BIT 
BNE 
CMP 
BLOS 
MOV 
17*: MOV 
.: If stack is 
i is equal to 
CMP 
BLOS 
MOV 
; See if amou 
; in SAV file 
16*: MOV 
TSTB 



CORUSR, Rl 
#BLKO, R2 
JSW for .|ob bein 
44(R2),R3 
#-"^C<077770>, R3 

t - IGU/ p 1 \ . OA 

#075570, R4 

R3, R4 

R4, NEW JSW 

0<R2),R50VIR 

23* 

56(R2),#2S. 

23* 

50 (R2), #160000 

27* 

#VIMAGE, NEWUSW 

rmation about th 

is is constraine 

unt of memory sp 

this is not a v 

MAXMEM, R5 

#VIMAGE, NEW JSW 

17* 

R5, #160000 

17* 

#160000, R 5 

R5> ODTBAS 
allocated above 
top of stack. 

42<R2), 50<R2) 

16* 

42<R2), 50<R2) 
nt of memory to 

MAXMEM, R3 
VSWPFL 



i GET JOB INDEX NUMBER 

; POINT TO BLOCK DATA WE JUST READ IN 

started. 

i GET JSW SPECIFIED IN SAV FILE IMAGE 

i CLEAR SOME FLAGS 

• GET CURRENT JSW 
i CLEAR SOME FLAGS IN IT 
; MERGE FLAGS 

i THIS WILL BE JSW FOR JOB WE ARE STARTING 
; WAS JOB LINKED WITH /V SWITCH? 

* IF YES THEN SET VIRTUAL-MODE FLAG 
; DOES JOB NEED MORE THAN 2SKW? 
; BR IF YES 

; CHECK ADDRESS ABOVE TOP OF PROGRAM ROOT 
i BR IF DOES NOT NEED MORE THAN 2SKW 
; FORCE VIRTUAL- JOB MODE IF > 2SKW NEEDED 

e max amount of memory job will be allowed 

d by three things: 

Bcified by the MEMORY command. 

irtual job, <64Kb if it is a virtual job). 

; Get amt of memory specified by MEMORY command 

>Is this a virtual jobT' 

; Br if this is a virtual job 

; Constrain to 56Kb if not virtual job 



;This is base address of debugger 
top of program then say top of program 

i IS STACK ALLOCATED ABOVE PROGRAM TOP? 
; BR IF NOT 

; SAY TOP OF PROGRAM = STACK TOP 
allocate for program was specified 

; GET DEFAULT TOP OF MEMORY ADDRESS 
i IS THIS A NON-SWAPPING SYSTEM? 



I 
I 

c 

« 

i 

t 

i 

i 
i 



i 
{ 
I 



( 

l' 

I ( 

I I 

I 
f 

c 
I 
< 

< 

t 
t 
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— The RUN command MACRO V 


RUN command 






5S 


001776 


001442 




59 


002000 


032767 


OOOOOOG OOOOOOG 


60 


002006 


001005 




61 


002010 


020327 


160000 


62 


002014 


101402 




63 


002016 


012703 


160000 


64 


002022 


016200 


000056 


65 


002026 


001406 




66 


002030 


072027 


000013 


67 


002034 


001002 




68 


002036 


012700 


177774 


69 


002042 


010003 




70 


002044 


016200 


000050 


71 


002050 


062700 


000002 


72 


002054 


001002 




73 


002056 


012700 


177774 


74 


002062 


020300 




75 


002064 


103001 




76 


002066 


010003 




77 


002070 


016705 


OOOOOOG 


78 


002074 


010367 


OOOOOOG 


79 


002100 


020305 




80 


002102 


101123 




81 


002104 


032767 


OOOOOOG OOOOOOG 


82 


002112 


O01005 




83 


002114 


020327 


160000 


84 


002120 


101402 




85 


002122 


012703 


160000 


86 


002126 


010367 


OOOOOOG 


87 








88 


002132 


016203 


000050 


89 


002136 


020327 


001000 


90 


002142 


103512 




91 


002144 


010367 


OOOOOOG 


92 


002150 


016700 


OOOOOOG 


93 


002154 


020300 




94 


002156 


103075 




95 








96 


002160 


016203 


000042 


97 


002164 


001407 




98 


002166 


020367 


OOOOOOG 


99 


002172 


101076 




100 


002174 


032703 


000001 


101 


002200 


001073 




102 


002202 


000402 




103 


002204 


012703 


001000 


104 


002210 


010367 


OOOOOOG 


105 








106 


002214 


016203 


000040 


107 


002220 


020327 


000400 


108 


002224 


103406 




109 


002226 


032703 


000001 


110 


002232 


001003 




HI 


002234 


020367 


OOOOOOG 


112 


002240 


101410 




113 


002242 






114 


002256 


000167 


177242 
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21*: 
7*; 



BEG 

BIT 

BNE 

CMP 

BLOS 

MOV 

MOV 

BEQ 

ASH 

BNE 

MOV 

MOV 

MOV 

ADD 

BNE 

MOV 

22*: CMP 
BHIS 
MOV 

8*: MOV 
MOV 
CMP 
BHI 

13*: BIT 
BNE 
CMP 
BLOS 
MOV 

25*: MOV 

; Check top 
MOV 
CMP 
BLO 
MOV 
MOV 
CMP 
BHIS 

J Check prog 
MOV 
BEG 
CMP 
BHI 
BIT 
BNE 
BR 

2*: MOV 

3*; MOV 

> Check prog 
MOV 
CMP 
BLO 
BIT 
BNE 
CMP 
BLOS 

4*: FERR 
JMP 



13* 

#VIMAGE, NEWJSW 

26* 

R3» #160000 

26* 

#160000, R3 

56(R2>, RO 

7* 

#11. , RO 

21* 

#177774, RO 

RO, R3 

50(R2>, RO 

#2, RO 

22* 

#177774, RO 

R3, RO 

8* 

RO, R3 

MXJADR, R5 

R3, ODTBAS 

R3, R5 

TDOBIG 

#VIMAGE.NEWJSW 

25* 

R3, #160000 

25* 

#160000, R3 

R3, PRGSIZ 
of program address. 

50(R2),R3 

R3, #1000 

ILLSAV 

R3, PRGTOP 

ODTBAS, RO 

R3, RO 

TOOBIG 
ram's stack addrest 

42<R2),R3 

2* 

R3, PRGTOP 

ILLSAV 

#1, R3 

ILLSAV 

3* 

#1000, R3 

R3, USRSTK 
ram starting addrp 

40(R2), R3 

R3, #400 

4* 

#1, R3 

4* 

R3, PRGTOP 

5* 

#NOSTRT 

CLSEXT 



BR IF YES 

IS THIS A VIRTUAL IMAGE? 

BR IF YES 

CONSTRAIN TO 56KB IF NOT VIRTUAL 



WAS MEMORY ALLOCATION FOR PROGRAM SPECIFIED? 

BR IF NOT 

CONVERT # KW TO BYTE ADDRESS 

BR IF NOT 64KB 

SET 64KB ADDRESS TOP 

SET AS ADDRESS OF TOP OF PROGRAM SPACE 

GET ADDRESS OF TOP OF STATIC PROGRAM AREA 

BR IF DIDN'T OVERFLOW 64KB 

SET SIZE FOR 64KB 

IS ALLOCATED SIZE AT LEAST THIS BIG? 

BR IF YES 

USE ENOUGH SPACE FOR STATIC PROGRAM SIZE 

GET MAX ADDRESS JOB CAN POSSIBLY USE 

START ODT ABOVE TOP OF PROGRAM AREA 

ROOM FOR PROGRAM TO RUN? 

BR IF NOT ENOUGH MEMORY 

IS THIS A VIRTUAL vJOB? 

BR IF YES 

IS NOT, THEN CONSTRAIN SIZE TO 56KB 



; ADDRESS ABOVE TOP OF PROGRAM AREA 

GET TOP-OF-PROGRAM ADDRESS FOR SAV FILE 

MAKE SURE IT'S NOT TOO SMALL 

BR IF INVALID 

SAVE TOP ADDRESS OF PROGRAM 

GET TOP ADDRESS WE MAY GO UP TO 

IS PROGRAM TOO BIG? 

BR IF YES 

GET SPECIFIED STARTING STACK ADDRESS 

BR IF NO INITIAL STACK ADDRESS SPECIFIED 

CAN'T BE ABOVE TOP OF PROGRAM 

CAN'T BE ODD 



i DEFAULT TO 1000 FOR STACK IF NONE SPECIFIED 
iSET AS STARTUP STACK ADDRESS 

GET PROGRAM START ADDRESS 

MAKE SURE IT'S VALID 

BR IF TOO LOW 

MAKE SURE IT'S NOT ODD 

iMAKE SURE IT IS IN MEMORY RANGE FOR PROGRAM 

i INVALID START ADDRESS 



i 
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115 


002262 


010367 


OOOOOOG 


116 








117 








118 








119 


002266 


012704 


OOOOOOG 


120 


002272 


016461 


000002 


121 


002300 


016461 


000004 


122 








123 








124 








125 


002306 


016767 


175466 


126 








127 








128 








129 








130 


002314 


005761 


OOOOOOG 


131 


002320 


001003 




132 


002322 


005767 


OOOOOOG 


133 


002326 


001406 




134 


002330 


012700 


OOOOOOG 


135 


002334 


012760 


OOOOOOG 


136 


002342 


10437& 




137 








138 








139 








140 


002344 


012700 


OOOOOOG 


141 


002350 


104375 




142 








143 








144 








145 


002352 






146 


002366 


000406 




147 








140 








149 








150 


002370 






151 


002404 


000167 


177114 
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5*: MOV R3, U3TART j SAVE PROGRAM STARTING ADDRESS 
Set up name of program that is being started 



OOOOOOG 
OOOOOOG 



OOOOOOG 



000002 



MOV #RUNDEV, R4 i POINT TO PROGRAM NAME STORAGE CELLS 
MOV 2<R4),LPRG1<R1) ; SAVE NAME OF RUNNING PROGRAM 
MOV 4(R4), LPRG2(R1) 

Set up status flags for program being started 

MOV RUNOPS, RUNFLG i Set status flags for running program 

Broadcast status message to any monitoring jobs telling them that 
me are starting execution of a job. 



?9*: 



TST LMONHD ( R 1 ) 

BNE 29* 

TST SMONHD 

BEQ 28* 

MOV #GENMON, RO 

MOV #JS*RUN, 2<R0) 

EMT 375 



;Is our job being monitored? 

i Br if it is 

i Anyone monitoring all jobs? 

i Br if not 

i Point to EMT argument block 

i Set status code 

j Broadcast status message 



Enter TSX to read in SAV file and transfer control to it. 



>S*: MOV #RUNEMT,RO 
EMT 375 



; EMT TO START PROGRAM EXECUTION 
i START SAV FILE 



PROGRAM IS TOO BIG TO FIT IN MEMORY. 



TOOBIG: FERR 
BR 



ttOVRCDR 
CLEJMP 



BAD SAV FILE FORMAT 



ILLSAV: FERR 
CLEJMP: JMP 



#BADSAV 
CLSEXT 



i 
I 



C 
I 

( 
I 

c 

i 
i 
< 
I 

( 
c 



TSKM2C — The RUN command 
RUN command 



3 
4 
5 
6 
7 
8 
9 
10 
11 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



002410 012704 OOOOOOG 



002414 
002416 
002422 
002426 
002430 
002432 
002434 
002440 



002442 
002460 
002462 

002464 
002470 
002504 
002510 



010405 

012703 OOOOOOG 

012700 000004 

022325 

001004 

07 / OGvJ 

004767 OOOOOOG 

000421 
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i PROCESS A . CHAIN REQUES1 

i 

KDOCIN: MOV #CINDAT»R4 ; POINT TO CELL WITH PROGRAM NAME 

If chain is being done to SY: LD. SYS» simply do a SET LD CLEAN 

POINT TO PROGRAM NAME 
POINT TO "SY:LD. SYS" 
COMPARE 4 WORDS 
3*: CMP <R3)+, <R5)+ ; COMPARE PROGRAM NAMES 

BR IF NOT CHAINING TO LD HANDLER 

DO "SET LD CLEAN" OPERATION 
DON'T DO THE CHAIN 



103403 
005000 
000167 176120 



105067 
000167 



OOOOOOG 
OOOOOOG 



MOV 


R4, R5 


MOV 


#LDNAM, R3 


MOV 


#4, RO 


CMP 


<R3)+, <R5) + 


BNE 


2* 


SOB 


RO, 3* 


CALL 


LDCLEN 


BR 


4* 



Look up SAV file tue are chaining to 



?*: 



1«: 
4*: 



LOOKUP #XAREA, #RUNCHN, R4 



BCS 


1* 


CLR 


RO 


JMP 


PLOAD 


FERR 


#NOPRG 


CLRB 


CINFLG 


JMP 


NOCIN 



; BRANCH IF ERROR 
i Say no RUN options 
; LOAD AND RUN PROGRAM 



i 
i 
I 

i 
i 

€ 

€ 

t 

t 

I 

( 

i 

t 
I 
f 
4 
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CHKIND — Force IND to run from 
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boot device 



I 
f 



1 

c 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

Errors 



SBTTL CHKIND 



Force IND to run from boot device 



Inputs; FILNAM has dev: f i 1 spc. ex t of program about to be run 

Outputs: If program is IND» dev: in FILNAM changed to boot device 

and . ext in FILNAM changed to . SAV 



002514 
002522 
002524 
002530 

)2 

002536 
002540 

002542 

002552 
002560 
002566 



detected 



026727 
001021 
005767 
001016 

005767 
001005 
005726 



016767 
012767 
000207 

000001 




000002G 
000004G 

0000000 



035164 CHKIND: CMP 

BNE 
TST 
BNE 



FILNAM+2, #'^RIND 

9* 

FILNAM+4 

9« 



IS PROGRAM IND? 
RETURN IF NOT 
AND ONLY 3 CHARS? 
i RETURN IF NOT 



Program about to be run i& IND 



TST INDSAV 

BNE 1* 

TST <SP)+ 

FABORT #NOIND 



WAS IND AVAILABLE DURING START-UP? 
BR IF SO 

THROW AWAY RETURN POINTER IF NOT 
i AND ABORT COMMAND 



OOOOOOG 
073376 



> Ensure that IND is aluiags run from "real" SY 

OOOOOOG 1*: MOV SYNAME, FILNAM J ALWAYS RUN FROM BOOT DEVICE 

000006G MOV #-^RSAV, FILNAM+6 i USE IND. SAV 

9$: RETURN 

> 

. END 



**« Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 9840 Words < 39 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:21.06 

, LP: TSKM2C=DK: TSKM2C/C/N: SYM 



! ( 
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1-39 


7-89 
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1-25 


7-44 


8-12 
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1-25 


5-72 


7-98 


*NOINT 


1-25 


7-50 


8-15 


*NOWIN 


1-39 


7-83 




*NOWTT 


1-26 


7-41 


8-13 


*PRGLK 


1-26 


7-68 




*QU I ET 


1-31 


5- J 02 




*RNIOP 


1-26 


7-58 


8-16 


*RNMLK 


1-26 


7-65 


8-16 


*SCCA 


1-47 


7-80 




*SETRN 


1-41 


7-107 


8-16 


*STSNG 


1-33 


7-5 




*TRNSP 


1-26 


7-47 


8-11 


*UCLRN 


1-26 


7-104 


8-15 


. . . VI 


5-8 


5-8 


5-8 


. . . V2 


5-8 


5-8 


5-S# 




9-19# 


9-19# 




ABRTCF 


1-38 


7-70 




ACRFN 


1-30 


5-4 




AF*BYA 


1-27 


4-54 




AF*CCA 


1-27 


4-82 


7-78 


AF*DBG 


1-27 


4-77 


7-71 


AFfDUP 


1-27 


7-87 




AF*HIE 


1-27 


4-59 


7-42 


AF*IND 


1-28 


7-90 




AF*IOP 


1-28 


4-64 


7-52 


AF*MEM 


1-28 


4-39 


7-59 


AF*NOI 


1-28 


4-69 


7-48 


AF«NOW 


1-28 


4-44 


7-39 


AF«NPW 


1-32 


4-87 


7-81 


AF*PLK 


1-29 


4-34 


5-10 


AF*SCA 


1-29 


4-44 


7-7 


AF«SET 


1-29 


7-105 




AF*TPO 


1-29 


4-49 


7-45 


AFfUCL 


1-29 


7-99 




AFCF 


1-48 


7-31 




BADSAV 


1-45 


8-150 




BLKO 


1-47 


8-4 


8-23 


BLKWDS 


1-47 


8-4 




CCSPRV 


1-38 


7-69 




CFBUF 


1-30 


5-50 


5-58 


CFSQEZ 


1-30 


5-52 




CHKIND 


5-7 


10-9# 




CINDAT 


1-33 


5-2 1# 


5-22* 


CINFLG 


1-41 


8-8* 


9-24* 


CLEJMP 


8-146 


8-151# 




CLSEXT 


5-6 


5-14 


7^57 


CMDOFF 


1-24 


5-12 




CMDRSY 


1-20 


4-12# 




CMDRUN 


1-20 


4-7# 




CORUSR 


1-32 


4-29 


5-16 


CVTTAB 


1-41 


4-16 





8-13 



8-4 8-4 8-7 8-7 9-19 9-19 9-19 

5-S# 8-4 8-4 S-4# 8-4# 8-7 8-7# 9-19 9-19 



7-66 
7-36 



8-10 



{ 

5-34 5-35 5-39 5-40* 9-4 

7-64 7-76 7-97 8-7# 8-114 8-151 

i 
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5-98 


7-103 


10-17 
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7-27 
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7-94 


8-101 


8-1 50# 
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7-96 
10-14 


/-V4 
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3-9# 


3-10 


3- 
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3-11 
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3-13 


3-13# 
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3-14# 


3-15 
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3-16 
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3-17# 
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6-19 
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LPROl 
LPRG2 
LSWll 


1-44 
1-44 
1-39 


8-120* 
8-121* 
7-83* 
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1 


LSW3 


1-48 


7-47* 


8-11* 
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1-48 


8-77 
























1 
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3-6 


3-6 


3-7 


3-7 


3-8 


3-8 


3-9 


3-9 


3- 


■10 


3-10 


3-11 


f 




3-11 


3-12 


3-12 


3-13 


3-13 


3-14 
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3- 
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3-16 


3-17 
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1-42 
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8-43 


8-59 


8-81 
















1 


NOCIN 


1-46 


9-25 
























NOIND 


1-24 


10-17 
























» 


NOPRG 


1-24 


5-13 


9-23 























< 



l< 



i 
i 
^ 
i 
I 

i 

I 
4 
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RNSNOI 


3-12 


4-69# 
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3-17 


4-49# 






RSTPRV 


1-42 


8-17 
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1-34 


5-23* 


8- 


"9* 


RUNASW 


7-5# 
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1-34 


5-8 


5- 


-8 
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1-34 


6-14 


6- 


-18 
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1-35 


8-140 
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1-34 
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1-35 
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4- 
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1-20 


4-23 


5- 
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4- 


-34* 




4-87* 


5-10 


5- 
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4-8 
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-40 
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1-46 
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SYNAME 
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10-19 
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